home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 8 / Revista CD Expert nº 08 CD1.iso / Utilitarios / Programacao / FirstBasic Compiler / NUM.BAS < prev    next >
BASIC Source File  |  1996-07-31  |  1KB  |  35 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│                                                                           │
  3. '│  Utility to toggle the NUM lock status on or off.                         │
  4. '│  Copyright (c) 1995 by PowerBASIC, Inc.  All Rights Reserved.             │
  5. '│                                                                           │
  6. '└───────────────────────────────────────────────────────────────────────────┘
  7.  
  8. DEFINT A - Z
  9.  
  10. PRINT "NUM v1.0 ■ Toggle NUM LOCK status"
  11. PRINT "Copyright (c) 1995 by PowerBASIC, Inc.  All Rights Reserved."
  12. PRINT ""
  13.  
  14. Cmd$ = UCASE$( COMMAND$ )
  15. IF ( Cmd$ = "ON" ) OR ( Cmd$ = "+" ) THEN
  16.   Stat = -1
  17. ELSEIF ( Cmd$ = "OFF" ) OR ( Cmd$ = "-" ) THEN
  18.   Stat = 0
  19. ELSE
  20.   PRINT "Usage:  NUM on|off|+|-"
  21.   END 1
  22. END IF
  23.  
  24. DEF SEG = 0
  25.   X = PEEK( &H417 )  'get keyboard toggles
  26.   IF Stat THEN
  27.     X = X OR &B00100000
  28.     PRINT "NUM LOCK is now ON"
  29.   ELSE
  30.     X = X AND &B11011111
  31.     PRINT "NUM LOCK is now OFF"
  32.   END IF
  33.   POKE &H417, X      'set keyboard toggles
  34. DEF SEG
  35.